00001	C ******* D.F4 *********
00100	C	DIMENSION I(4,500)
00200		DIMENSION I(3)
00300	1	FORMAT(4I)
00400	2	FORMAT(I4,',',I3,',',I1)
00500		CALL IFILE(1,'DOG')
00600		CALL OFILE(20,'DDOG')
00700		K=1
00800	3	READ(1,1,END=4)N,I
00900	C3	READ(1,1,END=4)(I(J,K),J=1,4)
01000	C	I(1,K)=K
01100		WRITE(20,2)I
01200	CC	WRITE(20,2)(I(J,K),J=2,4)
01300		K=K+1
01400		GO TO 3
01500	4	END FILE 20
01600		END
01999	C ******* DD.F4 ********
02000	C	DIMENSION I(4,500)
02100		DIMENSION I(3)
02200	1	FORMAT(4I)
02300	2	FORMAT(I4,',',I3,',',I1)
02400	10	FORMAT(' INPUT NAME  '$)
02500	11	FORMAT(' OUTPUT NAME  '$)
02600	12	FORMAT(A5)
02700		TYPE 10
02800		ACCEPT 12,NMIN
02900		TYPE 11
03000		ACCEPT 12,NMOUT
03100		CALL IFILE(1,NMIN)
03200		CALL OFILE(20,NMOUT)
03300		K=1
03400	3	READ(1,1,END=4)N,I
03500	C3	READ(1,1,END=4)(I(J,K),J=1,4)
03600	C	I(1,K)=K
03700	CC	WRITE(20,2)I
03800	  	WRITE(20,1)K,I
03900		K=K+1
04000		GO TO 3
04100	4	END FILE 20
04200		END